Две вещи:)
1) Вам не нужно str (maxrowina) . Вы можете использовать это
maxcellinb = "B" & maxrowina
2) Не должно MsgBox (ws.Range (dbhobcell). Значение) быть
MsgBox (ws.Range(maxcellinb).Value)
Полный код
maxrowina = ws.Range("A1").Offset(ws.Rows.Count - 1, 0).End(xlUp).Row
maxcellinb = "B" & maxrowina
MsgBox (ws.Range(maxcellinb).Value)