Sub ���s()
    
    keisan.Show
    
End Sub