Вычислить значение выражения

Imports System
Imports System.IO
Imports System.Text
 
Module Module1
 
 
    Sub Main()
        Dim k As Integer
        Dim n As Integer
        Dim x As Integer
        Dim sum_zn As Double
        Dim sum_ch As Double
        Dim S, Sp As Double
        Dim a As Double
        Const eps = 0.0001
        Dim ds As New FileStream("1.txt", FileMode.OpenOrCreate, FileAccess.Write)
        Console.WriteLine("Введите n: ")
        n = Console.ReadLine()
        Console.WriteLine("Введите x: ")
        x = Console.ReadLine()
        a = Math.Sin((x) ^ 2 * n)
        S = 0
        sum_zn = 1
 
        Do
            Sp = S
            sum_ch = (-1) ^ k * a
            'ds.Write(CInt(sum_ch))
            'ds.Write(CInt(Console.ReadLine()))
 
 
            sum_zn *= k + 1
            k += 1
            S = S + (sum_ch / sum_zn)
 
            MsgBox(S)
        Loop While Math.Abs(S - Sp) > eps
    End Sub
 
    Private Sub FileOpen(ByVal p1 As String)
        Throw New NotImplementedException
 
    End Sub
 
End Module