VBA Programm welches Personalien abfragt und in eine Excel-Tabelle einfüllt

Hallo zusammen

Ich habe den Auftrag, ein Programm zu erstellen, welches Personalien abfragt und in eine Excel-Tabelle einfüllt.

Folgende Angaben sollten abgefragt werden:

1. Kolonne: Personalnummer (Das ist eine durchlaufende Nummerierung, beginnend bei 1)
2. Kolonne: Vorname und Familienname (Mit Leerzeichen getrennt)
3. Kolonne: Postleitzahl (Vierstellige Nummer)

Einige Rahmenbedingungen:
Die Eingabe sollte so erfolgen, dass jedes Adresselement Name bzw. Postleitzahlzahl einzeln abgefragt wird.
Bei Programmstart kann die Tabelle leer sein oder bereits eine Anzahl Adress-Datensätze beinhalten. Sind schon Daten in der
Tabelle vorhanden, müssen neue am Ende der Liste angefügt werden. Die Person erhält demnach die nächste freie Personalnummer.


Und dann habe ich noch eine kurze, generelle Frage:

Wie kann mann in einem Text (String) feststellen wie viel mal z.B. der Buchstabe "e" vorkommt?
Grosse "e" sollten auch gezählt werden und bei einer Leereingabe muss das Programm damit umgehen können.
Ich habe bereits mit der Funktion: instr(1,"Text", "e") gespielt. Leider kam nie die richtige Zahl heraus, meiner Meinung nach weil er nicht den ganzen String analysiert.

Ich wäre froh um einen Code, damit ich mittels einer Anregung den Auftrag abschließen kann.

Vielen Dank im voraus und viele Grüsse

Daniel.

Function CountChar(str As String, char As String) As Long
    Dim cnt As Long
    For i = 1 To Len(str)
        If LCase(Mid(str, i, 1)) = LCase(char) Then cnt = cnt + 1
    Next
    CountChar = cnt
End Function

Sub Test()
    msgbox CountChar("Hallo das ist ein TeSt","s")  
End Sub

Function CountChar(str, char)
    Dim cnt
    For i = 1 To Len(str)
        If LCase(Mid(str, i, 1)) = LCase(char) Then cnt = cnt + 1
    Next
    CountChar = cnt
End Function

msgbox CountChar("Hallo das ist ein TeSt","s")  

Function CharCountBiber(str As String, anotherstr As String) As Long
     CharCountBiber = Len(str) - Len(Replace(str, anotherstr, "", , , vbTextCompare))  
End Function

Sub Test()
     MsgBox CharCountBiber("Hallo das ist ein TeSt", "s")  
End Sub