Include username and name from Windows into textbox

[smig]

It does print blanks which is why I commented on it
View attachment 82341
...and so on

However this version doesn't print any blank lines

Public Sub pbListAllEnvironVars()

Dim i As Integer

For i = 1 To 255
    If Nz(Environ(i), "") <> "" Then
        Debug.Print i & "  -  " & Environ(i)
    End If
Next i

End Sub

Actually I use my own IsNOE() function
If Trim(strToTest + "") =" " then
True
Else
False
End if