.NET (Core and Framework)

public static String HmacSha256Encode(String key, String data) {
 try {
Mac sha256_HMAC = Mac.getInstance("HmacSHA256");
 SecretKeySpec secret_key = new SecretKeySpec(Base64.decodeBase64(key.getBytes("UTF-8")),"HmacSHA256"); sha256_HMAC.init(secret_key);
return new String(Base64.encodeBase64(sha256_HMAC.doFinal(data.getBytes("UTF-8"))));
}catch (Exception e) {e.printStackTrace();
 }
return null;
 }

Dim FileLine As String
Dim LineLength As Integer


Using sr As New StreamReader("C:\Users\WIN 7\Desktop\rmsbp050_09032018.txt")
    While Not sr.EndOfStream


        FileLine = sr.ReadLine()
        LineLength = FileLine.Length






        If LineLength = 59 Then


            DataGridView1.Rows.Add(FileLine.ToString, sr.ReadLine() & vbNewLine, sr.ReadLine() & vbNewLine & vbNewLine, sr.ReadLine() & vbNewLine & vbNewLine & vbNewLine)


        End If


    End While
End Using

Public Class cMyButton
    Inherits Button

    Dim m_Form As Form
    Public Property FormToOpen As Form
        Set(ByVal value As Form)
            m_Form = value
        End Set
        Get
            Return m_Form
        End Get
    End Property


    Private Sub cMyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        m_Form.ShowDialog()
    End Sub
End Class