Code:
Dim mySERform As New ErrorReport.frmMain 
mySERForm.DataString1 = "HELLO WORLD"
mySERForm.ShowDialog()