Woow its works
I don't belive it so easy
thank you very much
I give a beer if you ever come to denmark

Best regards
Alvin


"sebastienm" skrev:

Alvin,

user name the have use to get on to the pc
You can access environment variables through the Environ() function:
msgbox Environ("username") '<-- returns user name
msgbox Environ("computername") '<-- returns computer name
so something like
Public uName as String

In your sub where you prompt the user:
uName = Environ("username")
if uname="" then 'if no user name
'Ask the user as you currenlty do
'or use computer name
'uname= ...
End If

In the sub where you assign the caption:
Userform1.Caption = uName

Regards,
Sebastien
"Alvin Hansen" wrote:

Thank you thank you all
It was a message box where the user shal write there name
and the name shall stand i the titel off my userform
and yes its working Wooooooooooow
Off course the best soloution would bee to take there user name
the have use to get on to the pc, but i don't believe i can do that

Many thanks

Alvin


"Tom Ogilvy" skrev:

Define you variable in a general module at the top (insert=Module)

Public MyVar as String

Sub SetMyVar()
myVar = "ABCD"
End sub


then in the Userform Module

Private Sub Userform_Initialize()
me.Caption = MyVar
End Sub

--
Regards,
Tom Ogilvy


"Alvin Hansen" wrote in message
...
Hi

Can i use a variabel in my caption in my userform
sp the titel in my userform have the value of my variabel
and if i can how? And where shall i define my variabel?

Best regards

Alvin