sayı formatı

[airborne]

Private Sub TextBox1_Change()
karakter = TextBox1.Text
Select Case Len(karakter)
Case 3
karakter = karakter & "-"
End Select

TextBox1.Text = karakter
End Sub

bu koddo nasıl bir değiştirme yapılarak sondan bir önceki sayının önüne - işareti konulabilir

 

[veyselemre]

karekter=left(karekter,len(karekter)-1) & "-" & right(karekter,1)

 

[airborne]

rakam 1 de olabilir 9999 da olabilir yinede 1 de olsa 1 den sonra - , 9999 da olsa 9999 dan sonra - nasıl yapılabilir