Как получить часть строки до определенного знака - VB

Sub Exp()
 
    Dim M()
    '
    M = Parse("Строка1; Строка2; Строка3;", ";") '
    
    For i = 0 To UBound(M) - 1
        MsgBox M(i)
    Next i
 
End Sub

Function Parse(Stri As String, Del As String)
      Dim lEX()
      Dim N
      Dim Tmp$
      Tmp$ = ""
      Dim i%
      Dim s$
      
      N = 0
      ReDim lEX(0)
        For i% = 1 To Len(Stri)
                s$ = Mid$(Stri, i%, 1)
                If s$ = Del Then
                        If Tmp$ <> "" Then
                                lEX(N) = Tmp$
                                N = N + 1
                                ReDim Preserve lEX(N)
                                Tmp$ = ""
                        End If
                Else
                        Tmp$ = Tmp$ & s$
                End If
        Next i%
       If Tmp$ <> "" Then
          lEX(N) = Tmp$
       End If
       Parse = lEX
End Function