Private Sub CmdForm_Click()
FrmMain.Show
End Sub

Private Sub CmdGo_Click()
   FastDMRtoExcel
End Sub

Private Sub CmdKill_Click()
   Worksheets("Data").Cells.Clear
End Sub