How to enter text in TextBox?

[spown]

Hallo, I'm want to enter a text in text property of TextBox. I read help exampels and using the following part of cod
Sub Eltablo()
Dim Trafopost, Izvod As String
Dim StalbNomer, TabloNomer As String
Dim tipTablo As String
Dim EPN As String
Dim Electromer, Tok As String
Dim Chasovnik, ChasovnikNomer As String
Dim Tarifi, Fasa, TT, NT As String

Trafopost = "TP 1"
Izvod = "A"
StalbNomer = "1"
TabloNomer = "1"
tipTablo = "TEMO 1M"

txtTrafopost.Text = Trafopost
txtIzvod.Text = Izvod
txtTablo.Text = tipTablo
txtStalb.Text = StalbNomer
txtTablo.Text = TabloNomer

End Sub
but it does not work.
Pleas tell me why?

 

[johnwm]

There is a few points:

Dim Trafopost, Izvod As String

will Dim Trafopost as a Variant and Izvod as a String.

 txtTablo.Text = tipTablo
    txtStalb.Text = StalbNomer
    txtTablo.Text = TabloNomer

is overwriting the value in txtTablo from tipTablo to TabloNomer

Is this Word VBA? The code works fine for me - where is the Sub and how are you calling it?

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting

UK steam enthusiasts:

http://www.essexsteam.co.uk

 

[spown]

Thank you for answer. This is AutoCad VBA and I found my mistace. This realy works fine.