Public Function Multipy(strNumber As String) As String
Dim strArray, strCon As String
Dim i As Integer
If Len(strNumber) > 1 Then GoTo Err2

strCon = 0
i = 0

Do While strCon < 100
 i = i + 1
 strCon = strNumber * i
   If Len(strCon) = 1 Or Len(strCon) = 3 Then GoTo Err1:
 strArray = strArray & vbCrLf & strCon
Err1:
Loop
Multipy = strArray

Exit Function
Err2:
Multipy = "Error"
End Function