Sub SubSimp()

N = InputBox("Введите целое N>0")

ierr = False
If IsNumeric(N) Then
    CN = CDbl(N)
    ierr = CDbl(CN) > 0 And Int(CN) = CN
End If

If Not ierr Then
    MsgBox "Введено неверное число" + vbCrLf + N
    Exit Sub
End If

If FunSimp(N) Then
    MsgBox "Сумма цифр в числе" + vbCrLf + vbCrLf + CStr(N) + vbCrLf + vbCrLf + "простое число"
Else
    MsgBox "Сумма цифр в числе" + vbCrLf + vbCrLf + CStr(N) + vbCrLf + vbCrLf + "НЕ простое число"
End If

End Sub
Function FunSimp(N)
    S = CStr(N)
    k = Len(S)
    SS = 0
    For i = 1 To k
        SS = SS + CInt(Mid(S, i, 1))
    Next
    FunSimp = True
    If SS > 3 Then
        For i = 2 To SS - 1
            FunSimp = (SS Mod i <> 0)
            If Not FunSimp Then Exit Function
        Next
    End If
End Function