Как открыть папку Appdata/Roaming - VB

Формулировка задачи:

If nasDirExists("C:\Users\111\AppData\Roaming\Папка\") Then
  MsgBox "бла бла бла", vbInformation
 Else
  MkDir "C:\Users\111\AppData\Roaming\Папка\"
 End If
End Sub

Мне нужно чтобы в первой и четвёртой строчке был такой путь, который сам определит имя пользователя (так как сейчас он 111, а на другом компьютере эта программа работать не будет, так как там другое имя пользователя). Я слышал вот про это, но как этим пользоваться?

Environ("Appdata")

Решение задачи: «Как открыть папку Appdata/Roaming»

textual
                            Листинг программы 
                        
                            Environ("Appdata") & "\Папка"