[RESOLVED] Check Textbox if directory type or not

[Hack]

Private Sub Command1_Click()
    If Len(Dir(Text1.Text, vbDirectory)) Then
        If (GetAttr(Text1.Text) And vbDirectory) = vbDirectory Then
          MsgBox Text1.Text & " is a FOLDER"
        End If
    Else
          MsgBox Text1.Text & " is not a FOLDER "
    End If
End Sub