You should write full path to directory. Here is simple code:
Code:
Dim strUser As String
        strUser = Environment.UserName
        My.Computer.FileSystem.CreateDirectory("C:\Documents and Settings\" & strUser & "\Desktop\abc")