Attribute VB_Name = "Module1"

Function A1OnPvm() As Boolean
Attribute A1OnPvm.VB_ProcData.VB_Invoke_Func = " \n14"
  A1OnPvm = IsDate(ActiveSheet.Range("A1").Value)
End Function

Function A1OnEmpty() As Boolean
  A1OnEmpty = IsEmpty(ActiveSheet.Range("A1").Value)
End Function

Sub TestaaFunktio()
Attribute TestaaFunktio.VB_ProcData.VB_Invoke_Func = " \n14"
  MsgBox A1OnPvm
  MsgBox A1OnEmpty
End Sub

Private Function PvmOK(ByVal PvmKokeilu As Variant) As Boolean
  If IsEmpty(PvmKokeilu) Then
    PvmOK = False
  Else
    PvmOK = IsDate(PvmKokeilu)
  End If
End Function

Sub TestaaPvmOK()
  MsgBox PvmOK("1.1.2010")
End Sub