If I understand correctly the following code should get you going:

Code:
Public Sub CreateTab()

SSTab1.TabsPerRow = 4

If Not Text1.Text = "" Then
    If Text1.Text > 1 Then
        SSTab1.Tabs = Text1.Text
    End If
End If



End Sub