In this code I write 2 functions, one function convert from char to binary and another one is for convert from string to binary code.

Private Sub Form_Load()
MsgBox (char2bin("a"))
MsgBox (txt2bin("Hello World"))
End Sub
Function txt2bin(str2bin As String) As String
Dim result As String
For i = 1 To Len(str2bin)
result = result & char2bin(Mid(str2bin, i, 1))
Next i
txt2bin = result
End Function
Function char2bin(chr2bin As String) As String
Dim result As String
Dim char2asc As Integer, total As Integer
char2asc = Asc(chr2bin)
For i = 7 To 0 Step -1
If char2asc >= (total + (2 ^ i)) Then
total = total + (2 ^ i)
result = result & "1"
Else
result = result & "0"
End If
Next i
char2bin = result
End Function

Need some help with this Array. I am trying to get the sum of the even numbers and the sum of the odd numbers using a for each loop. I know the answers to what I am trying to achive are sum of even = 84 and the sum of ...

When I execute this progammatically, I get a table with row heights much larger than when I do this manually.

Note : Sel is the Word.Selection object and the Clipboard contains an Excel Table.

public void AddClipboard()
{
Sel.PasteExcelTable(false,false, false);
var t = Sel.Tables[Sel.Tables.Count];
t.AutoFitBehavior(Word.WdAutoFitBehavior.wdAutoFitContent);
}

I have a 2d matrix with dimension (3, n) called A, I want to calculate the normalization and cross product of two arrays (b,z) (see the code please) for each column (for the first column, then the second one and so on).
the function that I created to find the ...