Solved! Go to Solution.
Dim thisform = Application.Map.Layers(lyrname).Forms('EDITFORM')
If lyrform.Mode = 2 Then
Application.MessageBox('Form open for editing')
Else If lyrform.Mode = 3 Then
Application.MessageBox('Form open for new feature')
End If