padding zeroes to the right of string

See more:

VB

Hi,

i have the following code so far

Option Explicit

Dim strNumber As String
Dim strLenNr As String
Dim NrOfZero As Integer
Dim Zeros As String

Private Sub Command1_Click()

strNumber = Int(Text1.Text)  'or whatever you use to put
                                        'your number into a var
strLenNr = Len(strNumber)  'length of number (nr of digits)

If strLenNr >= 5 Then
   'nr is already 5 digits or more
Else

   NrOfZero = 5 - strLenNr  'number of zero's to add
   Zeros = String$(NrOfZero, "0")   'Zeros now contains 'NrOfZero' zeros
   strNumber = Zeros & strNumber

End If

Text2.Text = strNumber

End Sub

However this doesn't seem to run it says "String is a type and cannot be used as an expression" - Please help ???

Thanks,
Tushar.