TEXTBOX`DA -0123456789 YERİNE 0123456789 GÖRÜNÜMÜ

[Ongun]

Arkadaşlar, herkese selamlar bir konuda bilgi almak istiyorum.

Private Sub UserForm_Activate()
On Error Resume Next
TextBox40.Value = Cells(1, 40)
Dim FSO As Object, Surucu As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")
Seri = Surucu.serialnumber
TextBox2.Text = Seri
If ((TextBox2.Text * TextBox31.Text) + TextBox41.Text) = Cells(1, 27) Then
UserForm4.Show
Exit Sub
Else
MsgBox "KAYITLI KULLANICI DEĞİLSİNİZ..."
Unload Me
UserForm25.Show
TextBox1.SetFocus
Set Surucu = Nothing
Set FSO = Nothing
End If
End Sub

Textbox2.Text = Seri kodu ile örneğin -0123456789 sayısı textbox2`e userform açıldığında geliyor.

Yapmak istediğim, -(eksi) işaretinin görünmemesi. Yani 0123456789 olarak görünsün.

Bu konuda yardımcı olursanız sevinirim. Saygılarımla :hey:

 

[Haluk]

denemedim ama;

textbox2.text= replace(seri,"-","")

 

[Ongun]

Sayın Haluk bey, elinize sağlık denedim oldu. Çok teşekkür ederim. Saygılarımla. :dua: