Indsæt bogstav i linie

Function test()
    MsgBox (outputNumbers(1, 2, 30, 4))
End Function
Function outputNumbers(a As Integer, b As Integer, c As Integer, d As Integer)
    outputNumbers = repeat(" ", 10) & addSpaces(CStr(a), 7) & addSpaces(CStr(b), 7) & addSpaces(CStr(c), 7) & addSpaces(CStr(d), 9)
End Function
Function addSpaces(str As String, length As Integer)
    addSpaces = str & repeat(" ", length - Len(str))
End Function
Function repeat(str As String, count As Integer) As String
    repeat = ""
    Dim i As Integer
    For i = 1 To count
        repeat = repeat & str
    Next
End Function

Takker for hjælpen

Jeg er støt ind i et problem, hvad gør jeg når der er en text imellem??  4 = tekst

Så kan du gøre sådan her:
Function test()
    MsgBox (outputNumbers("1", "2", "30", "tekst"))
End Function
Function outputNumbers(a as String, b as String, c As String, d As String)
    outputNumbers = repeat(" ", 10) & addSpaces(a, 7) & addSpaces(b, 7) & addSpaces(c, 7) & addSpaces(d, 9)
End Function
Function addSpaces(str As String, length As Integer)
    addSpaces = str & repeat(" ", length - Len(str))
End Function
Function repeat(str As String, count As Integer) As String
    repeat = ""
    Dim i As Integer
    For i = 1 To count
        repeat = repeat & str
    Next
End Function

den giver en fejl "Type Mismatch" og stiller sig på linien

MsgBox (outputNumbers("1", "2", "30", "tekst"))

Hvis det er tal "2" er det ok

Er det tekst "tekst" kommer der fejl

Har du husket at udskifte resten af koden? Jeg har også rettet i funktionen outputNumbers