Attribute VB_Name = "Module1"

Function A1OnPvm() As Boolean
  A1OnPvm = IsDate(ActiveSheet.Range("A1").Value)
End Function

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

Sub TestaaFunktio()
  MsgBox A1OnPvm
  MsgBox A1OnEmpty
End Sub