Create a message dialog

File name: frmMain.vb
frmMsgBox.Caption = "Test Item: " & m_arrMeasItem(Index).sName
  Load frmMsgBox
  frmMsgBox.Show vbModal
  If frmMsgBox.DialogResult = vbCancel Then
        Exit Sub
  End If


----
File name: frmMsgBox.vb
Option Explicit
Public DialogResult As VbMsgBoxResult

Private Sub cmdOK_Click()
    
    DialogResult = vbOK
    Unload Me
    
End Sub

Private Sub cmdStop_Click()
    
    DialogResult = vbCancel
    Unload Me
    
End Sub