Hola,
Puedes hacer lo siguiente:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'***********************************************************
'Función para obtener el nombre de usuario del sistema
Private Function Usuario_Windows() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String
sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
Usuario_Windows = sUsuario
End Function
'Fin de Función
'***********************************************************
Y para crear el fichero pones:
Open "C:\Documents and Settings\" & Usuario_Windows & "\Escritorio\" & "Ejemplo.txt" For Append As #1
Write #1, Text1.Text
Close #1
He mirado la carpeta esa a la que lleva y está vacía,
por tanto he de suponer que no va a funcionar...no estoy seguro.
Yo te recomiendo que lo guardes en:
C:\WINDOWS\Escritorioque viene a ser lo mismo y funciona a la perfeccion.
Salu2.