I have resolved this problem. My mistake was that I did not put
Private Declare Function statements inside 'General'-
'(Declaration)'. In stead of that, I placed them above and near
===================
Private Sub CommandButton1_Click()
===================