Dim mUIV
Set mUIV = CreateObject("UIView32.clsUIV")

Dim acount
Dim bigString 
Dim crlf 

crlf = chr(10)+chr(13)

bigString="Total Stations: " & mUIV.intStationCount & crlf & crlf

For acount = 0 To mUIV.intStationCount -1
 bigString = bigString + (mUIV.strStationList(CInt(acount))) + crlf
Next 

msgbox bigString