If (Dir(Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src")) Then
  Kill Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src"
End If

If (Dir("c:\documents and settings\USUARIO\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\USUARIO\prueba.txt"
End If

'API
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

Public Function UsuarioActual() As String
    'Esta función devuelve el nombre del Usuario
    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
    UsuarioActual = sUsuario
    
End Function

If (Dir("c:\documents and settings\UsuarioActual\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\UsuarioActual\prueba.txt"
End If '