Dim str As String = "00111000110101010110100001111001110001101010101101000011110011100011010101011010000111100111000110101010110100001111001110001101010101101000011110011100011010101011010000111100111000110101010110100001111"
Log(str.SubString2(44,45))