Как осуществоить переход на новую строку - VB

Формулировка задачи:

Всем привет! Я программистка не очень, но на работе узнали, что изучала бэйсик, теперь засталяют мелочи писать

                    Листинг программы
                
Private Sub Clear_Click()
Text.Text = ""
End Sub
Private Sub Label1_Click()
 
If store.Text = 1046 Or 1044 Then Label.Caption = h1
 
End Sub
 
Private Sub mac_Change()
mac.Text = Format((mac.Text), "##:##:##:##:##:##")
End Sub
 
Private Sub send_Click()
Clipboard.SetText Text.Text
End Sub
 
Private Sub Write_Click()
 
Text = store.Text & " | " & till.Text & " | " & mac.Text & " | " & ttill.Text & " | " & port.Text & " | " & sb.Text & " | " & monitor.Text + vbCrLf
 
End Sub

Собственно, что у меня не получается. Вот здесь задать формат сетевого адреса:

                    Листинг программы
                
mac.Text = Format((mac.Text), "##:##:##:##:##:##")

Чтобы только 12 сиволом с двоеточиями. Вот тут у меня ничего в лэйбле не появляется

                    Листинг программы
                
If store.Text = 1046 Or 1044 Then Label.Caption = h1

И перенос на новую строку не происходит

Листинг программы

+ vbCrLf

Мальчики, помогите, пожалуйста

Решение задачи: «Как осуществоить переход на новую строку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
 
Private Sub mac_Click()
mac = Replace(mac, ":", "")
End Sub
 
Private Sub mac_KeyPress(KeyAscii As Integer)
If Not ((Len(mac) < 12 Or Not mac.SelText = Empty) And (KeyAscii > 47 And KeyAscii < 58 _
Or KeyAscii > 96 And KeyAscii < 103) Or KeyAscii = 8) Then KeyAscii = 0
End Sub
 
Private Sub mac_LostFocus()
If Len(mac) = 12 Then
    mac = Format((mac.Text), "@@:@@:@@:@@:@@:@@")
Else
    MsgBox "Проверьте правильность ввода mac"
    Putfocus mac.hwnd
End If
End Sub