para variável é assim:
'Windows API's - pega o nome da estação
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim lngI As Long 'variavel de retorno
Dim strP As String * 50
Dim intI As Integer 'variavel para controle do laço FOR
strNomeArquivoIni = App.Path & "GeradorRelatorio.ini" 'Nome do arquivo INI da aplicação (com caminho)
lngI = GetComputerName(strP$, Len(strP$)) 'Tenta pegar o nome da estação
If lngI > 0 Then 'Ok! pega o mome da estação
strNomeEstacao$ = Left$(strP$, InStr(strP$ + Chr$(0), Chr$(0)) - 1)
Else 'O windows não sabe quem é!!!
strNomeEstacao$ = ""
End If
If Len(strNomeEstacao$) = 0 Then 'ainda não tem o nome da estação
If Len(strNomeEstacao$) = 0 Then 'se não conseguiu
If strNomeEstacao$ = "" Then 'não informou a estação...
End 'então não pode entrar no sistema.
End If
End If
End If
strNomeEstacao$ = strNomeEstacao$ + " - " 'prepara variável para grupo no .INI
strNomeSistema$ = "Gerador de Relatórios" 'nome da aplicação
strAtencao$ = "Atenção!"
For intI = 0 To 4 'vetor com os nomes dos módulos do sistema
strModulos$(intI) = " " + Choose(intI + 1, "ATF", "COM", "CTB", "EST", "FIN") + " "
Next
