Formatting textbox

Question

Hello, I’m having a formatting problem in the text box which is as follows I am using the following code to format the text box according to the phone number

If Len(numtel) = 11 Then CaixaTxt.Text = Format(numtel, "(##) ##### ####")
    If Len(numtel) = 10 Then CaixaTxt.Text = Format(numtel, "(##) #### ####")
    If Len(numtel) = 9 Then CaixaTxt.Text = Format(numtel, "( ) ##### ####")
    If Len(numtel) = 8 Then CaixaTxt.Text = Format(numtel, "( ) #### ####")

however the text box instead of being formatted with the number and format, is receiving the text: Ex: Len = 8 the box is "( ) #######" with the space of the quotation marks and # instead of numbers... Someone knows what I’m doing wrong?

Answer 1

The problem will most likely be that the variable numtel be the type String, which prevents formatting from being applied.

The solution is to convert to whole and then make the conversion, more or less in this way:

If IsNumeric(numtel) Then
    Dim intNumtel As Integer = Convert.ToInt32(numtel)
    Dim strNumtel As String

    Select Case Len(numtel)
        Case 11 : strNumtel = Format(intNumtel, "(##) ##### ####")
        Case 10 : strNumtel = Format(intNumtel, "(##) #### ####")
        Case 9 : strNumtel = Format(intNumtel, "( ) ##### ####")
        Case 8 : strNumtel = Format(intNumtel, "( ) #### ####")
    End Select

    CaixaTxt.Text = strNumtel
End If