Set Host = CreateObject( "BZWhll.WhllObj" ) Host.Connect "A" Host.ReadScreen ResultStr, 2, 7, 15 x = Val(ResultStr) / 2 ResultStr = Host.Str( x ) Host.WriteScreen ResultStr, 7, 15