Attribute VB_Name = "Module1"

Sub TarkistuksetExitHypyilla()
  If ActiveSheet.Range("B1").Value = "" Then
    MsgBox "Solussa B1 ei ole arvoa"
    Exit Sub
  End If
  If Not IsNumeric(ActiveSheet.Range("B1").Value) Then
    MsgBox "Solussa B1 oleva arvo ei ole luku"
    Exit Sub
  End If
  ActiveSheet.Range("B1").Value = _
        ActiveSheet.Range("B1").Value + 1
End Sub

Sub TarkistuksetGoToHypyilla()
  If ActiveSheet.Range("B1").Value = "" Then
    MsgBox "Solussa B1 ei ole arvoa"
    GoTo Loppu
  End If
  If Not IsNumeric(ActiveSheet.Range("B1").Value) Then
    MsgBox "Solussa B1 oleva arvo ei ole luku"
    GoTo Loppu
  End If
  ActiveSheet.Range("B1").Value = _
       ActiveSheet.Range("B1").Value + 1
Loppu:
End Sub

Sub TarkistuksetEhdoilla()
  If ActiveSheet.Range("B1").Value = "" Then
    MsgBox "Solussa B1 ei ole arvoa"
  Else
    If Not IsNumeric(ActiveSheet.Range("B1").Value) Then
      MsgBox "Solussa B1 oleva arvo ei ole luku"
    Else
      ActiveSheet.Range("B1").Value = ActiveSheet.Range("B1").Value + 1
    End If
  End If
End Sub