Private Function Asc2String(ByVal str As String) As String Dim StrDesc As System.String = String.Empty If str…