MIS Interview Series Q30 VBA UDF Function br br Function Valuewithhypen(x As String) br br findhypen = InStr(x, "-") br firstvalue = Left(x, findhypen - 1) + 0 br secondvalue = Right(x, Len(x) - findhypen) + 0 br For i = firstvalue To secondvalue br br qq = qq & "," & i br Next i br Valuewithhypen = Right(qq, Len(qq) - 1) br br End Function br br Supporting file can be downloaded from below path.