Задание на строки - VB

Private Sub Inic(a As String, b As String, c As String, d As String, t As Integer)
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
n = 1: t = 3: i = 1
repeat
          If a(i) = " " Then
          begin
               k = i + 1
               t = i - 1
               For j = 1 To t
               b [n] = a(j)
                inc (n)
                inc (i)
     If n >= (t) Then
c = a(k)
     For j = k To length(a)
     begin
          If a(j) = " " Then
          begin
               i = j + 1
               d = a(i)
End Sub
Private Sub Command1_Click()
Dim st As String
Dim h As String
Dim o As String
Dim p As String
Dim e As Integer
Dim t As Integer
Label1.Caption = ""
Label2.Caption = ""
st = InputBox("фио=")
Label1.Caption = Label1.Caption & st
Inic
For e = 1 To (t)
Label2.Caption = Label2.Caption & h(e) & " " & o & "." & p & "."
End Sub