SUm_of_First_last

                      Private Sub Command1_Click()

                                    num = Val(Text1.Text)

                                    remi = num Mod 10

                                    'Print remi

                                    cnt = Len(num)

                                    'Print cnt

                                     For i = 1 To cnt Step 1

                                            If i < cnt Then

                                                 num = num \ 10

                                           End If

                                    Next

                                    Sum = num + remi

                                    Label1.Caption = "Answer" & Sum

                      End Sub

                      Private Sub Text1_Click()

                                    Text1.Text = ""

                      End Sub