✔ Mid-Funktion --- Onlinebeispiel funktioniert nicht

[VBA_Laie]

Guten Tag miteinander

Ich versuche ein Makro zu gestalten, was mir die Arbeit vereinfacht. Der ganze Code ist soweit fertig und funktioniert auch, bis auf die Mid-Funktion welche ich im Internet auf einer Beispielseite gefunden habe. Sieht evtl. jemand von Ihnen wo das Problem liegen könnte?

Der Code ist fürs Excel 2000 auf einem XP Professional Betriebssystem (Visual Basic 6.0)

Beim Ausführen klappt alles wunderbar, nur dass dann der String FirsWord den Wert = "" anzeigt...

Public Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

End Function

Sub TestString()

' Creates text string.
Dim TestString As String
TestString = "Mid Function Demo"

' Returns "Mid".
Dim FirstWord As String
FirstWord = Mid(TestString, 1, 3)

End Sub

Über mögliche Lösungen würde ich mich sehr freuen.
Freundliche Grüsse,

Marcel Leopold

 

[VBA_Laie]

Ok, das Thema hat sich soeben erledigt.
Das problem lag darin, dass die Beispiel-Funktion aus dem Internet keine eigentliche VBA funktion war und ich durch das skript die eigentlich bereits vorhandene Mid-Funktion durch eine für VBA unnütze überschieb.

Lösung:
Ich benutze die mir vorher nicht bekannte, funktionierende und bereits implementierte Mid-Funktion von VBA ;o)