Private Sub Command1_Click()
    Dim m As Integer, n As Integer
    Dim s As Double
    s = 0
    m = 1
    For n = 1 To 7
        m = m * n
        If n Mod 2 = 1 Then s = s + 1 / m
    Next n
    Text1.Text = Str(s)
End Sub