Строковые функции - VB

Формулировка задачи:

Мне надо изменить код так, чтобы он смог работать с числами. Вот код:

Private Sub Command1_Click()
Dim s As String
Dim fam As String
Dim im As String
Dim oth As String
Dim d As String
Dim n As String
Dim m As String
s = Trim(Text1.Text)
d = Len(s)
n = InStr(s, " ")
fam = Left(s, n - 1)
Text2.Text = fam
w = Len(fam)
Label1.Caption = Str(w)
m = InStrRev(s, " ")
im = Mid(s, n + 1, m - (n + 1))
Text3.Text = im
h = Len(im)
Label2.Caption = Str(h)
oth = Right(s, d - m)
Text4.Text = oth 
c = Len(oth)
Label3.Caption = Str(c)
z = UCase(Left(fam, 1)) + UCase(Mid(fam, 2)) + " " + UCase(Left(im, 1)) + "." + UCase(Left(oth, 1)) + "."
List1.AddItem z
End Sub

Должно быть как на картинке. Я пытался сам. Label мне не нужен(по заданию), убирая строки с Label я так же, убирал строки которые с ним могут быть связаны. Не получилось. Помогите, чем сможете, спасибо!

Решение задачи: «Строковые функции»

textual
                            Листинг программы 
                        

                            Dim d As Date
If IsDate(Text1.Text) Then
d = Text1.Text
Label1 = Day(d)
Label2 = Month(d)
Label3 = Year(d)
Else
MsgBox "Format ##.##.#### or ##/##/####"
End If
                        