Private Sub Command1_Click() Dim sum As Double If Val(Me.Text1.Text) < 0 Then MsgBox "Invalid input!", vbCritical Else For i = 1 To Val(Me.Text1.Text) Step 2 sum = sum + i Next i Text2.Text = "Sum of all odd numbers from 1 to " & Me.Text1.Text & ": " & sum End If End Sub