Выделить только ту часть строки, которая находится между двоеточиями

Dim sVal As String, sInter As String
Dim iFirst As String, iLast As String
sVal = "вавава:попопо:гагага"
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)

Sub gh()
Dim k, l As String
Dim sVal As String
Dim sInter As String
Dim iFirst As String
Dim iLast As String
l = InputBox("ââîä ")
sVal = l
 
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)=k
msgbox("результат ") & k
End Sub

Dim iFirst As String, iLast As String

Dim iFirst As Integer, iLast As Integer

Sub gh()
Dim sVal As String, sInter As String
Dim iFirst As Integer, iLast As Integer
 
sVal = InputBox("ââîä ")
 
If Len(Trim(sVal)) = 0 Then
  MsgBox prompt:="Íè ÷åãî íå ââåäåíî", Title:="Îøèáêà"
  Exit Sub
End If
 
 
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)
MsgBox "ðåçóëüòàò " & sInter
End Sub

MsgBox prompt:="Не было ни чего введено", Title:="Ошибка"