Skrive den same tegn 8 gange?

Private Sub Form_Load()
  Me.Caption = String$(8, Asc("-"))
  ' eller
  Me.Caption = String$(8, 45)
End Sub

Tak for det -> sjh. Lav et svar ;) Many tx
Jeg skal lave et talfomat: 00000023
Må jeg regne ud '8 - 2' for at lege til eller er det en smart comando for det som jeg ikke vet?
Terra

så gør du bare sådan:

Private Sub Form_Load()
  Me.Caption = LeftNull("1234") ' Standart 8
  Me.Caption = LeftNull("1234", 10) ' Her 10
End Sub

Public Function LeftNull(strText As String, Optional Length As Integer = 8)
  LeftNull = Right$(String$(Length, 48) & strText, Length)
End Function

du bør nok lige lave den her om til long -> Optional Length As Long = 8