Function Reverse(Text As String) As String
    Dim i As Integer
    Dim StrNew As String
    Dim strOld As String
    strOld = Trim(Text)
    For i = 1 To Len(strOld)
      StrNew = Mid(strOld, i, 1) & StrNew
    Next i
    Reverse = StrNew
End Function
                        
                                                
                    | HỖ TRỢ | 
|---|
| 02516-544-809 1900-636-507  | 
		
| Giờ làm việc | 
| Sáng 07h30 đến 12h00 | 
| Chiều 13h30 đến 17h00 |