Excel VBA, userform

Hej,

Jeg har lavet følgende vba kode til en combobox I en userform, hvor jeg først indsætter indhold I comboboxen og dernæst vil teste for indhold I comboboksen. Dvs. hvis der vælges , eksempelvis "B" I comboboksen, skal tekstbox1 og tekstbox2 automatisk udfyldes med henholdsvis dato og tid.

har søgt rundt på nettet, men kan ikke få koden til at virke

Håber der er en, som kan hjælpe  - på forhånd mange tak:-)

Private Sub UserForm_Initialize()

ComboBox1.Clear

With ComboBox1
    .AddItem "B"
    .AddItem "FAM MED"
    .AddItem "G"
    End With


If Me.ComboBox1.ListIndex <> -1 Then

TextBox1.Value = Date And TextBox2.Value = Time

End If
End sub