Attribute VB_Name = "Module1" Sub Main() Form2.Show End Sub Public Sub SendDataWS(MsgData As String) Form1.WS1.SendData Form1.MyName & "»¡¡G" & MsgData & vbCrLf End Sub