wrong font

Giganews Newsgroups
Subject: wrong font
Posted by:  damorrison (davemcochra…@gmail.com)
Date: 28 May 2006

When a userform shows, the first textbox acts strange, it does this

if I want to enter a 15 it shows like this

=E6=AE=8E5

or this, the first diget always shows up as the square thing
=E2=8E=8E2
=E6=8E=8E4
Here's the codes

Option Explicit

Dim i As Integer

Private Sub CommandButton1_Click()
Dim varNbRows As Double
    Range("C1").Select
    varNbRows =3D Selection.CurrentRegion.Rows.Count
    If Selection.Value =3D "" Then
        Exit Sub
    ElseIf Selection.Offset(1, 0).Value =3D "" Then
        Selection.Offset(1, 0).Select
    Else
        Selection.Offset(varNbRows, 0).Select
    End If
Range("C1")(ActiveCell.Row).Value =3D TextBox1.Text
Range("D1")(ActiveCell.Row).Value =3D TextBox2.Text
Range("E1")(ActiveCell.Row).Value =3D TextBox2.Text
Range("F1")(ActiveCell.Row).Value =3D TextBox2.Text
Range("G1")(ActiveCell.Row).Value =3D ComboBox1.Text

Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me

End Sub

Private Sub UserForm_Initialize()
    CommandButton1.Caption =3D "Add Stair to stock "
    CommandButton1.AutoSize =3D True
    CommandButton1.TakeFocusOnClick =3D False
    CommandButton1.TabStop =3D False

    CommandButton2.Caption =3D "Cancel"
      CommandButton2.AutoSize =3D True
    CommandButton2.TakeFocusOnClick =3D False
    CommandButton2.TabStop =3D False

        ComboBox1.List =3D Array("ROUTES", "CUTS")

    TextBox1.TabIndex =3D 1
    TextBox2.TabIndex =3D 2
    TextBox3.TabIndex =3D 3
    TextBox4.TabIndex =3D 4
        ComboBox1.TabIndex =3D 5
        With ComboBox1
        Application.SendKeys "%{down}"
        End With
End Sub

I checked textbox1 properties and cannot find any difference to the
other boxes, so I don't understand why this is happening

Replies