Dim h As String
h = Environ$("COMPUTERNAME")
Print h