Получить все символы, расположенные после первого двоеточия. Если среди них есть пробелы, удалить их

Private Sub Command1_Click()
Dim S As String
Dim DelFlag As Integer
Dim L As Integer
Dim StartCut As Integer
Dim EndCut As Integer
Dim count As Integer
DelFlag = 0
S = Text1.Text
S = LCase(S)
L = Len(S)
count = 0
List1.AddItem ("длина строки = " + Str(L))
For I = 1 To L - 2
If (Mid(S, I, 3) = "xyz") And (DelFlag = 2) Then
count = count + 1
List1.Addltem ("условие 3 выполнилось ... i = " + Str(I))
List1.Addltem (" Count = " + Str(count))
End If
If (Mid(S, I, 3) = "xyz") And (DelFlag = 1) Then
DelFIag = 2
EndCut = I
count = count + 1
List1.Addltem ("условие 2 выполнилось... i = " + Str(I))
List1.Addltem (" Count = " + Str(count))
List1.Addltem (" конечная позиция вырезки = " + Str(EndCut))
End If
' Mid (оператор) - замещает определенное число символов в строке на
символы из другой строки
If (Mid(S, I, 3) = "xyz") And (DelFlag = 0) The
DelFlag = 1
StartCut = 1 + 2
count = count + 1
List1.Addltem ("условие 1 выполнилось... i = " + Str(I))
List1.Addltem (" Count = " + Str(count))
List1.Addltem (" начальная позиция вырезки = " + Str(StartCut))
End If
Next I
Text2.Text = Mid(S, 1, StartCut) + Mid(S, EndCut, Len(S))
Text3.Text = Str(count)
End Sub

Private Sub Command1_Click()
MsgBox Replace(Split(InputBox("Введите строку, в кот. есть двоеточие", , "k yl:uj j :lkiygv"), ":", 2)(1), " ", "")
End Sub