ちなみに下記のような形ではうまく行きませんでした
初心者で恐れ入ります。
Public Function Titleph(phTitle)
If Me.phTitle <> "" Then
phTitle
End If
End Function
通報 ...