مشکل در ایجاد فولدر..

[rezarko]

سلام مشکل این کد چیه؟
Private Sub Form_Load()
If Dir("C:\test") = "C:\text" Then
Print "Welcome"
Else
MkDir ("C:\test")
End If
end sub
در واقع میخوام اگر فولدرtest وجود نداشته باشه اونو بسازه و اگر وجود داشته باشه "welcom" رو روی فورم پرینت کنه.
وقتی این کد رو به فورم میدم برای بار اول مشکلی نداره و باز میشه ولی برای بار دوم که میخوام وارد برنامه شم ارور میده(روی قسمتMkDir ("C:\test") ارور میده)

[M.T.P]

Private Sub Form_Load()
If Dir("C:\test", vbDirectory) = vbNullString Then
MkDir ("C:\test")
Else
Print "Welcome"
End If
End Sub

البته برای Print شدن پروپرتی Auto Redraw فرم رو True کنید