Function middle(intx As String) As String
 
 Dim wordlen As Integer
 Dim answer As String
 
 wordlen = Len(intx)
 If wordlen Mod 2 = 0 Then
 answer = Mid(intx, (wordlen / 2), 2)
 End If
 If wordlen Mod 2 <> 0 Then
 answer = Mid(intx, (wordlen + 1) / 2, 1)

 End If
 middle = answer
 End Function